unit StartVumFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, Buttons;

type
  TStartVumForm = class(TForm)
    EnabledLichListBox: TCheckListBox;
    GComboBox: TComboBox;
    OkBtn: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    CancelBtn: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure OkBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    LichEnabled: Array [1..6] of boolean;
    Tr:byte;
  end;

var
  StartVumForm: TStartVumForm;

implementation

{$R *.dfm}

procedure TStartVumForm.FormShow(Sender: TObject);
Var
  i:byte;
begin
  GComboBox.ItemIndex:= 3;
  for I := 0 to EnabledLichListBox.Count - 1 do
    EnabledLichListBox.Checked[i]:= true;
end; {proc}


procedure TStartVumForm.OkBtnClick(Sender: TObject);
Var
  i:byte;
begin
  Tr:= GComboBox.ItemIndex;
  for I := 0 to EnabledLichListBox.Count - 1 do
    LichEnabled[i+1]:= EnabledLichListBox.Checked[i];
end; {proc}

end.
